You can use code similar to this to delete a sort field using PEDeleteNthSortField and a group sort field using PEDeleteNthGroupSortField:
LOCAL FieldToDelete
FieldToDelete = 0
&& Let's delete the first sort field
IF PEDeleteNthSortField (Job, FieldToDelete) = .F.
&& Handle error
ENDIF
LOCAL FieldToDelete
FieldToDelete = 0
&& Let's delete the first group sort field
IF PEDeleteNthGroupSortField (Job, FieldToDelete) = .F.
&& Handle error
ENDIF
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |